home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boxhelp.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-05-07  |  11.0 KB  |  377 lines
  1. 1000  CLS:KEY OFF:COLOR 7,0
  2. 1010  DEFINT J,K,I
  3. 1020  PLAY "CBDGE
  4. 1060  FOR J=1 TO 23
  5. 1070  LOCATE J,1:PRINT CHR$(221);:LOCATE J,79:PRINT CHR$(221);
  6. 1080  NEXT
  7. 1090  LOCATE 1,1
  8. 1100  PRINT STRING$(78,219)
  9. 1110  LOCATE 23,1:PRINT STRING$(78,219);
  10. 1120  COLOR 0,7:LOCATE 1,4:PRINT "BOXHELP
  11. 1130  LOCATE 1,55:PRINT "by James Edmunds*
  12. 1140  LOCATE 23,55:PRINT "*SOURCE ID BCA034
  13. 1150  COLOR 7,0:LOCATE 8,29:PRINT "B O X  H E L P
  14. 1160  LOCATE 12,15:PRINT "A program designed to help you create attractive
  15. 1170  LOCATE 13,15:PRINT "screens for your own BASIC programs on the IBM PC.
  16. 1180  LOCATE 20,20:PRINT "PRESS  I for instructions,
  17. 1190  LOCATE 21,24:PRINT "or M for the Main Menu
  18. 1200  IC$=INKEY$:IF IC$="" GOTO 1200
  19. 1210  IF IC$="i" OR IC$="I" GOTO 1220
  20. 1212  IF IC$="M" OR IC$="m" GOTO 10000
  21. 1214  GOTO 1200
  22. 1220  CLS:LOCATE 3,15:PRINT "The purpose of this program is to let you look
  23. 1230  LOCATE 4,10:PRINT "at a box shape that you may use to dress up a program.
  24. 1240  LOCATE 5,10:PRINT "This program assumes your knowledge of how to use such
  25. 1250  LOCATE 6,10:PRINT "BASIC or BASICA techniques as the use of STRING$
  26. 1260  LOCATE 7,10:PRINT "for horizontal line making and FOR-NEXT loops using
  27. 1270  LOCATE 8,10:PRINT "the LOCATE statement for vertical lines.
  28. 1280  LOCATE 10,15:PRINT "If you're not familiar with those, you'll probably
  29. 1290  LOCATE 11,10:PRINT "soon encounter them in your reading, but in the mean-
  30. 1300  LOCATE 12,10:PRINT "while, you could just take a look at the program
  31. 1310  LOCATE 13,10:PRINT "lines at the beginning of this program.
  32. 1320  LOCATE 15,15:PRINT "Note that the effect of `reverse' lettering out
  33. 1330  LOCATE 16,10:PRINT "of the CHR$(219) horizontal bar can be effected by
  34. 1340  LOCATE 17,10:PRINT "using the COLOR statement to make reverse video
  35. 1350  LOCATE 18,10:PRINT "(by specifying COLOR  0,7) and typing your message
  36. 1360  LOCATE 19,10:PRINT "at the specified location right over part of the
  37. 1370  LOCATE 20,10:PRINT "line formed by the STRING$ statement.
  38. 1380  LOCATE 23,30:PRINT "PRESS M to proceed to Main Menu";
  39. 1390  ZZZ$=INKEY$:IF ZZZ$="" GOTO 1390
  40. 1400  IF ZZZ$="M" OR ZZZ$="m" GOTO 10000
  41. 1410  GOTO 1390
  42. 3000  CLS:COLOR 7,0
  43. 3010  FOR J=2 TO 23
  44. 3020  LOCATE J,1:PRINT CHR$(186);
  45. 3030  LOCATE J,79:PRINT CHR$(186);
  46. 3040  NEXT
  47. 3050  LOCATE 1,1:PRINT CHR$(201)
  48. 3060  LOCATE 24,1:PRINT CHR$(200);
  49. 3070  LOCATE 1,79:PRINT CHR$(187)
  50. 3080  LOCATE 24,79:PRINT CHR$(188);
  51. 3090  LOCATE 1,2:PRINT STRING$(77,205)
  52. 3100  LOCATE 24,2:PRINT STRING$(77,205);
  53. 3110  LOCATE 3,5:PRINT "HORIZONTAL LINES:     COLOR 7,0
  54. 3120  LOCATE 5,5:PRINT "CHR$(4) MAKES THIS:   ";STRING$(8,4)
  55. 3130  LOCATE 7,5:PRINT "CHR$(176) MAKES THIS: ";STRING$(8,176)
  56. 3140  LOCATE 9,5:PRINT "CHR$(177) MAKES THIS: ";STRING$(8,177)
  57. 3150  LOCATE 11,5:PRINT "CHR$(178) MAKES THIS: ";STRING$(8,178)
  58. 3160  LOCATE 13,5:PRINT "CHR$(220) MAKES THIS: ";STRING$(8,220)
  59. 3170  LOCATE 15,5:PRINT "CHR$(219) MAKES THIS: ";STRING$(8,219)
  60. 3180  LOCATE 17,5:PRINT "CHR$(223) MAKES THIS: ";STRING$(8,223)
  61. 3190  LOCATE 19,5:PRINT "CHR$(196) MAKES THIS: ";STRING$(8,196)
  62. 3200  LOCATE 21,5:PRINT "CHR$(205) MAKES THIS: ";STRING$(8,205)
  63. 3210  LOCATE 3,45:PRINT "COLOR 0,7
  64. 3220   COLOR 0,7
  65. 3230  LOCATE 5,45:PRINT STRING$(8,4)
  66. 3240  LOCATE 7,45:PRINT STRING$(8,176)
  67. 3250  LOCATE 9,45:PRINT STRING$(8,177)
  68. 3260  LOCATE 11,45:PRINT STRING$(8,178)
  69. 3270  LOCATE 13,45:PRINT STRING$(8,220)
  70. 3280  LOCATE 15,45:PRINT STRING$(8,219)
  71. 3290  LOCATE 17,45:PRINT STRING$(8,223)
  72. 3300  LOCATE 19,45:PRINT STRING$(8,196)
  73. 3310  LOCATE 21,45:PRINT STRING$(8,205)
  74. 3320  COLOR 7,0
  75. 3330  LOCATE 3,60:PRINT "COLOR 15,0
  76. 3340  COLOR 15,0
  77. 3350  LOCATE 5,60:PRINT STRING$(8,4)
  78. 3360  LOCATE 7,60:PRINT STRING$(8,176)
  79. 3370  LOCATE 9,60:PRINT STRING$(8,177)
  80. 3380  LOCATE 11,60:PRINT STRING$(8,178)
  81. 3390  LOCATE 13,60:PRINT STRING$(8,220)
  82. 3400  LOCATE 15,60 :PRINT STRING$(8,219)
  83. 3410  LOCATE 17,60:PRINT STRING$(8,223)
  84. 3420  LOCATE 19,60:PRINT STRING$(8,196)
  85. 3430  LOCATE 21,60:PRINT STRING$(8,205)
  86. 3440  COLOR 7,0
  87. 3450  LOCATE 23,5:PRINT "[PRESS N for Next screen, M for Main Menu]";
  88. 3460  ZZZ$=INKEY$:IF ZZZ$="" GOTO 3460
  89. 3470  IF ZZZ$="M" OR ZZZ$="m" GOTO 10000
  90. 3480  IF ZZZ$="N" OR ZZZ$="n" GOTO 3500
  91. 3490  GOTO 3460
  92. 3500  GOSUB 15000
  93. 3510  LOCATE 3,5:PRINT "VERTICAL LINES:
  94. 3520  LOCATE 10,5:PRINT "COLOR 7,0
  95. 3530  LOCATE 14,5:PRINT "COLOR 0,7
  96. 3540  LOCATE 18,5:PRINT "COLOR 15,0
  97. 3550  LOCATE 3,20:PRINT "CHR$(4)";:LOCATE 4,20:PRINT "MAKES
  98. 3560  LOCATE 3,30:PRINT "CHR$(8)";:LOCATE 4,30:PRINT "MAKES
  99. 3570  LOCATE 3,40:PRINT "CHR$(21)";:LOCATE 4,40:PRINT "MAKES
  100. 3580  LOCATE 3,50:PRINT "CHR$(16)";:LOCATE 4,50:PRINT "MAKES
  101. 3590  LOCATE 3,60:PRINT "CHR$(17)";:LOCATE 4,60:PRINT "MAKES
  102. 3600  LOCATE 3,70:PRINT "CHR$(176)";:LOCATE 4,70:PRINT "MAKES
  103. 3610  JI=9:KI=22:X=4:GOSUB 16000
  104. 3620  JI=9:KI=32:X=8:GOSUB 16000
  105. 3630  JI=9:KI=42:X=21:GOSUB 16000
  106. 3640  JI=9:KI=52:X=16:GOSUB 16000
  107. 3650  JI=9:KI=62:X=17:GOSUB 16000
  108. 3660  JI=9:KI=72:X=176:GOSUB 16000
  109. 3670  COLOR 0,7
  110. 3675  JI=13:KI=22:X=4:GOSUB 16000
  111. 3680  JI=13:KI=32:X=8:GOSUB 16000
  112. 3690  JI=13:KI=42:X=21:GOSUB 16000
  113. 3700  JI=13:KI=52:X=16:GOSUB 16000
  114. 3710  JI=13:KI=62:X=17:GOSUB 16000
  115. 3720  JI=13:KI=72:X=176:GOSUB 16000
  116. 3730  COLOR 15,0
  117. 3735  JI=17:KI=22:X=4:GOSUB 16000
  118. 3740  JI=17:KI=32:X=8:GOSUB 16000
  119. 3750  JI=17:KI=42:X=21:GOSUB 16000
  120. 3760  JI=17:KI=52:X=16:GOSUB 16000
  121. 3765  JI=17:KI=62:X=17:GOSUB 16000
  122. 3770  JI=17:KI=72:X=176:GOSUB 16000
  123. 3780  COLOR 7,0
  124. 3790  LOCATE 23,5:PRINT "[PRESS N for Next screen, P for previous screen, M for Main Menu]";
  125. 3800  ZZZ$=INKEY$:IF ZZZ$="" GOTO 3800
  126. 3810  IF ZZZ$="M" OR ZZZ$="m" GOTO 10000
  127. 3815  IF ZZZ$="P" OR ZZZ$="p" THEN GOSUB 15000:GOTO 3110
  128. 3820  IF ZZZ$="N" OR ZZZ$="n" GOTO 3840
  129. 3830  GOTO 3800
  130. 3840  GOSUB 15000
  131. 3850  LOCATE 3,5:PRINT "VERTICAL LINES:
  132. 3860  LOCATE 3,20:PRINT "CHR$(177)";:LOCATE 4,20:PRINT "MAKES
  133. 3870  LOCATE 3,30:PRINT "CHR$(178)";:LOCATE 4,30:PRINT "MAKES
  134. 3880  LOCATE 3,40:PRINT "CHR$(221)";:LOCATE 4,40:PRINT "MAKES
  135. 3890  LOCATE 3,50:PRINT "CHR$(222)";:LOCATE 4,50:PRINT "MAKES
  136. 3900  LOCATE 3,60:PRINT "CHR$(179)";:LOCATE 4,60:PRINT "MAKES
  137. 3910  LOCATE 3,70:PRINT "CHR$(186)";:LOCATE 4,70:PRINT "MAKES
  138. 3920  JI=9:KI=22:X=177:GOSUB 16000
  139. 3930  JI=9:KI=32:X=178:GOSUB 16000
  140. 3940  JI=9:KI=42:X=221:GOSUB 16000
  141. 3950  JI=9:KI=52:X=222:GOSUB 16000
  142. 3960  JI=9:KI=62:X=179:GOSUB 16000
  143. 3970  JI=9:KI=72:X=186:GOSUB 16000
  144. 3980  LOCATE 10,5:PRINT "COLOR 7,0
  145. 3990  LOCATE 14,5:PRINT "COLOR 0,7
  146. 4000  LOCATE 18,5:PRINT "COLOR 15,0
  147. 4010  COLOR 0,7
  148. 4020  JI=13:KI=22:X=177:GOSUB 16000
  149. 4030  JI=13:KI=32:X=178:GOSUB 16000
  150. 4040  JI=13:KI=42:X=221:GOSUB 16000
  151. 4050  JI=13:KI=52:X=222:GOSUB 16000
  152. 4060  JI=13:KI=62:X=179:GOSUB 16000
  153. 4070  JI=13:KI=72:X=186:GOSUB 16000
  154. 4080  COLOR 15,0
  155. 4090  JI=17:KI=22:X=177:GOSUB 16000
  156. 4100  JI=17:KI=32:X=178:GOSUB 16000
  157. 4110  JI=17:KI=42:X=221:GOSUB 16000
  158. 4120  JI=17:KI=52:X=222:GOSUB 16000
  159. 4130  JI=17:KI=62:X=179:GOSUB 16000
  160. 4140  JI=17:KI=72:X=186:GOSUB 16000
  161. 4150  COLOR 7,0
  162. 4160  LOCATE 23,5:PRINT "[PRESS N for Next screen, P for previous screen, M for Main Menu]";
  163. 4170  ZZZ$=INKEY$:IF ZZZ$="" THEN GOTO 4170
  164. 4180  IF ZZZ$="M" OR ZZZ$="m" GOTO 10000
  165. 4190  IF ZZZ$="N" OR ZZZ$="n" GOTO 4210
  166. 4195  IF ZZZ$="P" OR ZZZ$="p" THEN GOSUB 15000:GOTO 3510
  167. 4200  GOTO 4170
  168. 4210  GOSUB 15000
  169. 4220  LOCATE 3,5:PRINT "CORNERS, INTERSECTIONS FOR SINGLE AND DOUBLE LINES:
  170. 4230  LOCATE 5,5:PRINT "CHR$(169) ";CHR$(169)
  171. 4240  LOCATE 7,5:PRINT "CHR$(170) ";CHR$(170)
  172. 4250  LOCATE 9,5:PRINT "CHR$(192) ";CHR$(192)
  173. 4260  LOCATE 11,5:PRINT "CHR$(217) ";CHR$(217)
  174. 4270  LOCATE 13,5:PRINT "CHR$(180) ";CHR$(180)
  175. 4280  LOCATE 15,5:PRINT "CHR$(195) ";CHR$(195)
  176. 4290  LOCATE 17,5:PRINT "CHR$(194) ";CHR$(194)
  177. 4300  LOCATE 19,5:PRINT "CHR$(193) ";CHR$(193)
  178. 4310  LOCATE 21,5:PRINT "CHR$(197) ";CHR$(197)
  179. 4320  LOCATE 5,22:PRINT "CHR$(201) ";CHR$(201)
  180. 4330  LOCATE 7,22:PRINT "CHR$(187) ";CHR$(187)
  181. 4340  LOCATE 9,22:PRINT "CHR$(200) ";CHR$(200)
  182. 4350  LOCATE 11,22:PRINT "CHR$(188) ";CHR$(188)
  183. 4360  LOCATE 13,22:PRINT "CHR$(185) ";CHR$(185)
  184. 4370  LOCATE 15,22:PRINT "CHR$(204) ";CHR$(204)
  185. 4380  LOCATE 17,22:PRINT "CHR$(203) ";CHR$(203)
  186. 4390  LOCATE 19,22:PRINT "CHR$(202) ";CHR$(202)
  187. 4400  LOCATE 21,22:PRINT "CHR$(206) ";CHR$(206)
  188. 4410  LOCATE 5,45:PRINT "CHR$(213) ";CHR$(213)
  189. 4420  LOCATE 7,45:PRINT "CHR$(184) ";CHR$(184)
  190. 4430  LOCATE 9,45:PRINT "CHR$(212) ";CHR$(212)
  191. 4440  LOCATE 11,45:PRINT "CHR$(190) ";CHR$(190)
  192. 4450  LOCATE 13,45:PRINT "CHR$(181) ";CHR$(181)
  193. 4460  LOCATE 15,45:PRINT "CHR$(198) ";CHR$(198)
  194. 4470  LOCATE 17,45:PRINT "CHR$(209) ";CHR$(209)
  195. 4480  LOCATE 19,45:PRINT "CHR$(207) ";CHR$(207)
  196. 4490  LOCATE 21,45:PRINT "CHR$(216) ";CHR$(216)
  197. 4500  LOCATE 5,62:PRINT "CHR$(214) ";CHR$(214)
  198. 4510  LOCATE 7,62:PRINT "CHR$(183) ";CHR$(183)
  199. 4520  LOCATE 9,62:PRINT "CHR$(211) ";CHR$(211)
  200. 4530  LOCATE 11,62:PRINT "CHR$(189) ";CHR$(189)
  201. 4540  LOCATE 13,62:PRINT "CHR$(182) ";CHR$(182)
  202. 4550  LOCATE 15,62:PRINT "CHR$(199) ";CHR$(199)
  203. 4560  LOCATE 17,62:PRINT "CHR$(210) ";CHR$(210)
  204. 4570  LOCATE 19,62:PRINT "CHR$(208) ";CHR$(208)
  205. 4580  LOCATE 21,62:PRINT "CHR$(215) ";CHR$(215)
  206. 4590  LOCATE 23,5:PRINT "[PRESS  P for previous screen, M to return to Main Menu]
  207. 4600  ZZZ$=INKEY$:IF ZZZ$="" GOTO 4600
  208. 4610  IF ZZZ$="M" OR ZZZ$="m" GOTO 10000
  209. 4615  IF ZZZ$="P" OR ZZZ$="p" THEN GOSUB 15000:GOTO 3850
  210. 4620  GOTO 4600
  211. 6000  CLS
  212. 6010  FOR J=1 TO 24
  213. 6020  LOCATE J,1:PRINT CHR$(21);
  214. 6030  LOCATE J,79:PRINT CHR$(21);
  215. 6040  NEXT
  216. 6050  COLOR 0,7:LOCATE 1,2:PRINT STRING$(77,4);
  217. 6060  LOCATE 24,2:PRINT STRING$(77,4);
  218. 6070  COLOR 7,0
  219. 6080  LOCATE 3,5:PRINT "MAKING A BOX:
  220. 6090  LOCATE 5,5:PRINT "This portion of the program provides a chance to get
  221. 6100  LOCATE 6,5:PRINT "a look at various ways you might construct a box as
  222. 6110  LOCATE 7,5:PRINT "a way of dressing up a program. Remember that you'll
  223. 6120  LOCATE 8,5:PRINT "build horizontal lines using the STRING$ statement
  224. 6130  LOCATE 9,5:PRINT "and build vertical lines using FOR NEXT loops. Corners,
  225. 6135  LOCATE 10,5:PRINT "intersections, etc. are put in by location. There
  226. 6140  LOCATE 11,5:PRINT "several examples available by looking at the listing
  227. 6150  LOCATE 12,5:PRINT "of this program. You may decide you'd have made all
  228. 6160  LOCATE 13,5:PRINT "my borders completely differently!
  229. 6170  LOCATE 23,5:PRINT "[PRESS B to make Box, M to return to Main Menu]
  230. 6180  ZZZ$=INKEY$:IF ZZZ$="" GOTO 6180
  231. 6190  IF ZZZ$="M" OR ZZZ$="m" GOTO 10000
  232. 6200  IF ZZZ$="B" OR ZZZ$="b" GOTO 6220
  233. 6210  GOTO 6180
  234. 6220  CLS
  235. 6222  LMI=0:BMI=0:RMI=0:TMI=0
  236. 6224  MHL=0:MVL=0:CROSS=0
  237. 6230  LOCATE 2,1:PRINT CHR$(24)
  238. 6240  LOCATE 5,1:PRINT "[If you want CHR$(201), for example, enter `201'
  239. 6250  LOCATE 6,1:PRINT "and press <RETURN>]
  240. 6260  LOCATE 3,1:INPUT "What CHR$ do you want in this corner";ULC
  241. 6270  CLS
  242. 6280   LOCATE 2,79:PRINT CHR$(24)
  243. 6290  LOCATE 3,60:INPUT "In this corner";URC
  244. 6300  CLS
  245. 6310  LOCATE 2,30:PRINT CHR$(24)
  246. 6320  LOCATE 3,20:INPUT "For the top horizontal line";THL
  247. 6330  CLS
  248. 6340  LOCATE 10,2:PRINT CHR$(27)
  249. 6350  LOCATE 11,2:INPUT "For the left vertical line";LVL
  250. 6355  CLS
  251. 6360  LOCATE 10,78:PRINT CHR$(26)
  252. 6370  LOCATE 11,60:PRINT "For the right
  253. 6380  LOCATE 12,60:INPUT "vertical line";RVL
  254. 6390  CLS
  255. 6400  LOCATE 23,30:PRINT CHR$(25)
  256. 6410  LOCATE 22,20:INPUT "For the bottom horizontal line";BHL
  257. 6420  CLS
  258. 6430  LOCATE 23,1:PRINT CHR$(25)
  259. 6440  LOCATE 22,1:INPUT "For the bottom left corner";LLC
  260. 6450  CLS
  261. 6460  LOCATE 23,79:PRINT CHR$(25)
  262. 6470  LOCATE 22,60:INPUT "Bottom right";LRC
  263. 6480  CLS
  264. 6490  LOCATE 10,10:PRINT "Do you wish any lines other than the big
  265. 6500  LOCATE 11,10:INPUT "box? [Enter `Y' for Yes, `N' for No]";OL$
  266. 6510  IF OL$="N" OR OL$="n" GOTO 6830
  267. 6520  IF OL$="Y" OR OL$="y" GOTO 6540
  268. 6530  GOTO 6490
  269. 6540  CLS
  270. 6550  LOCATE 5,10:PRINT "This portion of the program allows you to create
  271. 6560  LOCATE 6,10:PRINT "intersecting lines, by asking for intersecting
  272. 6570  LOCATE 7,10:PRINT "CHR$ symbols at logical points on the screen.
  273. 6580  LOCATE 8,10:PRINT "If at any of the option points you don't want
  274. 6590  LOCATE 9,10:PRINT "to place an intersecting symbol, just press
  275. 6600  LOCATE 10,10:PRINT "<RETURN> without entering anything.
  276. 6610  LOCATE 23,39:PRINT CHR$(25)
  277. 6620  LOCATE 21,20:PRINT "What CHR$ symbol do you want at
  278. 6630  LOCATE 22,20:INPUT "this intersection point";BMI
  279. 6640  CLS
  280. 6650  LOCATE 13,2:PRINT CHR$(17)
  281. 6660  LOCATE 14,2:INPUT "At this intersection point";LMI
  282. 6670  CLS
  283. 6680  LOCATE 13,78:PRINT CHR$(16)
  284. 6690  LOCATE 12,60:INPUT "At this point";RMI
  285. 6700  CLS
  286. 6710  LOCATE 2,39:PRINT CHR$(24)
  287. 6720  LOCATE 3,30:INPUT "At this point";TMI
  288. 6730  CLS
  289. 6740  LOCATE 12,39:PRINT CHR$(25)
  290. 6750  LOCATE 11,30:INPUT "At the crossing intersection";CROSS
  291. 6760  CLS
  292. 6770  LOCATE 8,38:PRINT CHR$(16)
  293. 6780  LOCATE 9,20:PRINT "For the additional
  294. 6790  LOCATE 10,20:INPUT "vertical line";MVL
  295. 6800  CLS
  296. 6810  LOCATE 12,20:PRINT CHR$(25)
  297. 6820  LOCATE 11,15:INPUT "For the additional horizontal line";MHL
  298. 6830  CLS
  299. 6840  LOCATE 10,10:PRINT "Finally, choose the COLOR statement for the box
  300. 6850  LOCATE 11,10:PRINT "you want to make.
  301. 6860  LOCATE 13,10:PRINT "For COLOR 7,0 select 1
  302. 6870  LOCATE 14,10:PRINT "For COLOR 0,7 select 2
  303. 6880  LOCATE 15,10:PRINT "For COLOR 15,0 select 3
  304. 6890  LOCATE 17,10:INPUT "What is your choice";COLORC
  305. 6900  IF COLORC<>1 AND COLORC<>2 AND COLORC<>3 GOTO 6840
  306. 8200  CLS
  307. 8205  IF COLORC=1 THEN COLOR 7,0
  308. 8210  IF COLORC=2 THEN COLOR 0,7
  309. 8220  IF COLORC=3 THEN COLOR 15,0
  310. 8510  LOCATE 1,1:PRINT CHR$(ULC);
  311. 8520  LOCATE 1,79:PRINT CHR$(URC);
  312. 8530  LOCATE 24,1:PRINT CHR$(LLC);
  313. 8540  LOCATE 24,79:PRINT CHR$(LRC);
  314. 8550  LOCATE 1,2:PRINT STRING$(77,THL);
  315. 8560  LOCATE 24,2:PRINT STRING$(77,BHL);
  316. 8570  FOR J=2 TO 23
  317. 8580  LOCATE J,1:PRINT CHR$(LVL);
  318. 8590  NEXT
  319. 8600  FOR J=2 TO 23
  320. 8610  LOCATE J,79:PRINT CHR$(RVL);
  321. 8620  NEXT
  322. 8650  LOCATE 13,1
  323. 8660  IF LMI<>0 THEN PRINT CHR$(LMI);
  324. 8670  LOCATE 24,39
  325. 8680  IF BMI<>0 THEN PRINT CHR$(BMI);
  326. 8690  LOCATE 13,79
  327. 8700  IF RMI<>0 THEN PRINT CHR$(RMI)
  328. 8710  LOCATE 1,39
  329. 8720  IF TMI<>0 THEN PRINT CHR$(TMI);
  330. 8730  LOCATE 13,2:IF MHL<>0 THEN PRINT STRING$(77,MHL);
  331. 8740  FOR J=2 TO 23
  332. 8750  LOCATE J,39:IF MVL<>0 THEN PRINT CHR$(MVL);
  333. 8760  NEXT
  334. 8770  LOCATE 13,39
  335. 8780  IF CROSS<>0 THEN PRINT CHR$(CROSS);
  336. 8790  LOCATE 15,5:COLOR 7,0
  337. 8800  PRINT "[PRESS B to create
  338. 8810  LOCATE 16,5:PRINT "another Box, M
  339. 8820  LOCATE 17,5:PRINT "to return to
  340. 8830  LOCATE 18,5:PRINT "Main Menu]
  341. 8840  ZZZ$=INKEY$:IF ZZZ$="" GOTO 8840
  342. 8850  IF ZZZ$="M" OR ZZZ$="m" GOTO 10000
  343. 8860  IF ZZZ$="B" OR ZZZ$="b" GOTO 6220
  344. 8870  GOTO 8840
  345. 9999      'subroutines
  346. 10000  CLS:FOR J=4 TO 20
  347. 10010  LOCATE J,20:PRINT CHR$(176)
  348. 10020  LOCATE J,60:PRINT CHR$(176)
  349. 10030  NEXT
  350. 10040  LOCATE 4,21:PRINT STRING$(39,176)
  351. 10050  LOCATE 20,21:PRINT STRING$(39,176)
  352. 10060  LOCATE 7,21:PRINT STRING$(39,205)
  353. 10070  LOCATE 6,32:PRINT "M A I N   M E N U
  354. 10080  LOCATE 9,25:COLOR 15,0:PRINT "L
  355. 10090  LOCATE 9,30:COLOR 7,0:PRINT "Look at various symbols
  356. 10100  LOCATE 10,30:PRINT "available for graphics
  357. 10110  LOCATE 12,25:COLOR 15,0:PRINT "B"
  358. 10120  LOCATE 12,30:COLOR 7,0:PRINT "Make a box using
  359. 10130  LOCATE 13,30:PRINT "the symbols
  360. 10132  LOCATE 15,25:COLOR 15,0:PRINT "X"
  361. 10136  LOCATE 15,30:COLOR 7,0:PRINT "Exit program
  362. 10140  LOCATE 17,21:PRINT STRING$(39,196)
  363. 10150  LOCATE 18,25:PRINT "PRESS the key corresponding
  364. 10160  LOCATE 19,25:PRINT "to your choice...
  365. 10170  MMC$=INKEY$:IF MMC$="" GOTO 10170
  366. 10180  IF MMC$="l" OR MMC$="L" THEN GOTO 3000
  367. 10190  IF MMC$="b" OR MMC$="B" THEN GOTO 6000
  368. 10195  IF MMC$="X" OR MMC$="x" THEN CLS:END
  369. 10200  GOTO 10170
  370. 10210  RETURN
  371. 15000  FOR J=2 TO 23
  372. 15010  LOCATE J,2:PRINT SPC(77)
  373. 15020  NEXT:RETURN
  374. 16000  FOR J=JI TO JI+3
  375. 16100  LOCATE J,KI:PRINT CHR$(X)
  376. 16200  NEXT J:RETURN
  377.